home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / dosshell.zip / DOSDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-04  |  527b  |  24 lines
  1. {$M $C00,0,0}    {MaxHeap must be limited to allow space for EXEC}
  2.  
  3. Program DOSDemo;
  4. USES CRT, DOSShell;
  5. var
  6.   Ch       : char;
  7.   HoldAttr : byte;
  8. begin
  9.   HoldAttr := TextAttr;
  10.   TextAttr := 15;
  11.   ClrScr;
  12.   Write('In the main application program - press a key to load the DOS shell. ');
  13.   Repeat
  14.     Ch := ReadKey;
  15.   Until not KeyPressed;
  16.   ShellToDOS;
  17.   Write('Home again, home again - press a key to exit. ');
  18.   Repeat
  19.     Ch := ReadKey;
  20.   Until not KeyPressed;
  21.   TextAttr := HoldAttr;
  22.   ClrScr;
  23. end.
  24.